home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / util / rexx / WW-Rech_kor.lha / Rechnung_N299220_PS < prev    next >
Text File  |  1999-02-23  |  7KB  |  399 lines
  1. /* Geschäftsbrief RECHNUNG */
  2.  
  3. /*
  4. ** Copyright by Friedrich Siekmeier, all Rights reserved.
  5. ** eMail: 05715090055-0001@btxgate.de oder la.paloma@t-online.de
  6. ** Kaufmannsbrede 1, 32429 Minden, Tel.: (0571) 52052
  7. ** Version 2.99220_PostScript
  8. ** Dieses Programm ist Cardware. Persönliche Anpassung nach Rücksprache möglich!
  9. ** Benutzung des Programms auf eigene Gefahr. Für jegliche Beschädigung wird keinerlei Haftung übernommen!
  10. ** ;-))
  11. */
  12.  
  13.  
  14.  
  15.  
  16.  
  17. OPTIONS RESULTS
  18.  
  19.  
  20. /*----------------------------*/
  21.  
  22. IF ~SHOW(L,"rexxreqtools.library") THEN DO
  23.    ADDLIB("rexxreqtools.library",0,-30,0)
  24.    END
  25.  
  26. /*----------------------------*/
  27.  
  28.  
  29. Waehrung = ' DM'
  30.  
  31. RgBeginn = 0
  32. Do While RgBeginn = 0
  33.  
  34. OPEN FILENAME 'WordWorth:Documents/Templates/Normal'
  35.  
  36. IF ~SHOW(P,"WORDWORTH.1") THEN DO
  37.     ADDRESS WORDWORTH.2
  38. END
  39.  
  40.  
  41. DOCUMENT A4 '2.5' '2.5' '0.51' '0.51'
  42.  
  43.  
  44. FITWIDTH
  45. PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 3
  46. NEWPARAGRAPH
  47. NEWPARAGRAPH
  48.  
  49.  
  50. SETTAB LEFT '15'
  51. FONT NAME "PS_Bookman" SIZE 7
  52. PLAIN
  53. Text '    Benutzerstraße XX'
  54. NEWPARAGRAPH
  55. Text '    00000 Benutzerstadt'
  56. NEWPARAGRAPH
  57. Text '    Tel.: (0571) 52 0 52'
  58. NEWPARAGRAPH
  59. Text '    Fax: (0571) 50 900 55'
  60.  
  61. NEWPARAGRAPH
  62. NEWPARAGRAPH
  63. NEWPARAGRAPH
  64.  
  65. PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
  66. FONT NAME "PS_Bookman" SIZE 6
  67. PLAIN
  68. SINGLEUNDERLINE
  69. Text 'Benutzerfirma, Benutzerstraße XX, 00000 Benutzerstadt'
  70. NEWPARAGRAPH
  71.  
  72. PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
  73. FONT NAME 'PS_Bookman' SIZE 10
  74. PLAIN
  75.  
  76. /*----------------------------*/
  77.  
  78. KAW = rtezrequest('Neukunde?','Ja|_Nein')
  79. IF KAW = 0 THEN CALL "Kunden:Auswahl"
  80. IF KAW = 1 THEN CALL NEUKUNDE
  81.  
  82. /*----------------------------*/
  83.  
  84. PLAIN
  85.  
  86. Text '    '
  87.  
  88. Font NAME "PS_Bookman" SIZE 12 
  89. InsertDate
  90.  
  91. NewParagraph
  92.  
  93. SETTAB LEFT '11.5'
  94.  
  95. Text '    Rechnung Nr.:    '
  96.  
  97.  
  98. CALL OPEN('RgNoWW','Rechnungen:RgNoWW','R')
  99. RgNo = READLN('RgNoWW')
  100. RgNew = TRUNC(RgNo)
  101. Dat = SUBSTR(DATE('S'),1,4)
  102. IF Dat = RgNew + 1
  103.     THEN RgNo = TRUNC(Dat,3)
  104. RgNo = RgNo + .001
  105. CALL CLOSE('RgNoWW')
  106.  
  107. Text RIGHT(RgNo,6)
  108.  
  109. NewParagraph
  110. NewParagraph
  111. NewParagraph
  112. NewParagraph
  113.  
  114. TABS
  115.  
  116. LeftJustify
  117. Font SIZE 14
  118. Bold
  119.  
  120. WizardReq TITLE "Auftrag" LABEL "Bitte Daten eingeben:" LABEL "" TextBOX 1 "_Auftrag:" BUTTON 1 "_Ok" BUTTON "-1" "A_bbruch"
  121. If Result = -1 THEN DO
  122.     Close FORCE
  123.     Exit
  124. END
  125.  
  126. Wizard_GetTextBox 1
  127. Atrag = Result
  128. Text Atrag
  129.  
  130. Bold
  131.  
  132. NewParagraph
  133. NewParagraph
  134. NewParagraph
  135. NewParagraph
  136. NewParagraph
  137. NewParagraph
  138. /*NewParagraph
  139. NewParagraph*/
  140.  
  141. SetTab LEFT "2.54"
  142. SetTab RIGHT "9.5"
  143. SetTab RIGHT "12"
  144. SetTab RIGHT "17.5"
  145.  
  146. Font SIZE 12
  147.  
  148. Plain
  149.  
  150. NewParagraph
  151. Paragraph 0 0 0 LEFT AUTO SINGLE NONE NONE
  152.  
  153. ZwiTotal = 0
  154. GroTotal = 0
  155. Finished = 0
  156. DO WHILE Finished = 0
  157.  
  158. FlexVar=0
  159.  
  160. /*----------------------------*/
  161.  
  162. PPAW = rtezrequest('Variabler Produktpreis?','Ja|_Nein')
  163. IF PPAW = 1 THEN CALL NEUPRODUKT
  164. IF PPAW = 0 THEN CALL "Produkte:Auswahl"
  165.  
  166. /*----------------------------*/
  167. /*----------------------------*/
  168.  
  169. FlexVar=RESULT
  170. IF FlexVar~=0 THEN
  171. Produkt = strip(subword(FlexVar,1,1))
  172. IF FlexVar~=0 THEN
  173. Preis = strip(subword(FlexVar,2,1))
  174.  
  175. /*----------------------------*/
  176.  
  177. WizardReq TITLE "Rechnungsassistent" LABEL "Rechnungsdaten eingeben:" LABEL "" TextBOX 1 "_Menge:" BUTTON 1 "_Fertig" BUTTON 2 "_Nächster" BUTTON "-1" "A_bbruch"
  178. If Result = -1  THEN DO
  179.     Close FORCE
  180.     Exit
  181. END
  182.  
  183. If Result = 1 THEN
  184.     Finished = 1
  185.  
  186. Text '    '
  187. Text Produkt
  188. Text '    '
  189.  
  190. Text Preis
  191. Text Waehrung
  192. Text '    '
  193.  
  194. Wizard_GetTextBox 1
  195. Anzahl = Result
  196. Text Anzahl
  197. Text '    '
  198.  
  199. Total = Preis * Anzahl
  200. Total = TRUNC(Total,6)
  201.     IF RIGHT(Total,4) > 5000
  202.         THEN Total = Total + .01
  203.         Total = TRUNC(Total,2)
  204. Text Total
  205. Text Waehrung
  206.  
  207. NewParagraph
  208.  
  209.  
  210. ZwiTotal = ZwiTotal + Total
  211.  
  212. Steuer = ZwiTotal * 0.16
  213. Steuer = TRUNC(Steuer,6)
  214.     IF RIGHT(Steuer,4) > 5000
  215.         THEN Steuer = Steuer + .01
  216.         Steuer = TRUNC(Steuer,2)
  217.  
  218. GroTotal = ZwiTotal + Steuer
  219. END
  220.  
  221. Paragraph 0 0 0 LEFT AUTO SINGLE "3 pt" NONE
  222.  
  223. NewParagraph
  224. Text '    Netto            '
  225. Text ZwiTotal
  226. Text Waehrung
  227. NewParagraph
  228.  
  229. Text '    16% MWSt            '
  230. Text Steuer
  231. Text Waehrung
  232.  
  233. Bold
  234. NewParagraph
  235. NewParagraph
  236.  
  237. Text '    Gesamt:            '
  238. DoubleUnderLine
  239. Text GroTotal
  240. Text Waehrung
  241. DoubleUnderLine
  242.  
  243. NewParagraph
  244. NewParagraph
  245.  
  246. FONT SIZE 8 PLAIN
  247. CentreJustify
  248. Text 'Betrag zahlbar ohne Abzug innerhalb von 14 Tagen auf das unten angegebene Konto!'
  249. NewParagraph
  250. Text 'Danke für Ihren Auftrag.'
  251.  
  252.  
  253. DRAWTEXTFRAME 1 '2.44' '0.84' '12.30' '2.59' '0.13' '0.13' '0.13' '0.13' 'TRANSPARENT' 'keine'
  254. Obj1 = RESULT
  255. SELECTOBJECT Obj1
  256.  
  257. NewParagraph
  258. CURSOR UP
  259. DELETE
  260. Paragraph 0 0 0 CENTRE AUTO SINGLE NONE 3
  261.  
  262. Font NAME "PS_Bookman" SIZE 19
  263.  
  264. Text 'XYZ-GmbH & Co.KG'
  265. NewParagraph
  266.  
  267. Text 'Benutzerfirma'
  268. SELECTOBJECT 0
  269.  
  270. DRAWTEXTFRAME 1 '2.44' '27.12' '15.78' '0.75' '0.13' '0.13' '0.13' '0.13' 'TRANSPARENT' 'keine'
  271. Obj2 = RESULT
  272. SELECTOBJECT Obj2
  273.  
  274. NewParagraph
  275. CURSOR UP
  276. DELETE
  277. Paragraph 0 0 0 CENTRE AUTO SINGLE NONE 3
  278.  
  279. Font NAME "PS_Bookman" SIZE 9
  280.  
  281. Text 'Bankverbindung: Deutsche Bank XYZ, Blz.: 000 000 00, Ktn.: 0 000 000 000'
  282. SELECTOBJECT 0
  283.  
  284. DRAWTEXTFRAME 1 '2.44' '14.25' '15.78' '0.73' '0.13' '0.13' '0.13' '0.13' 'TRANSPARENT' 'keine'
  285. Obj3 = RESULT
  286. SELECTOBJECT Obj3
  287.  
  288. NewParagraph
  289. CURSOR UP
  290. DELETE
  291. Paragraph 0 0 0 CENTRE AUTO SINGLE NONE 3
  292.  
  293. Font NAME "PS_Bookman" SIZE 12
  294. Italic
  295. SETTAB LEFT '5.4'
  296. SETTAB RIGHT '10.1'
  297. SETTAB LEFT '14.0'
  298.  
  299. Text 'Leistung:    Einzelpreis:    Menge:    Summe:'
  300. SELECTOBJECT 0
  301.  
  302.  
  303. DRAWLINE 1 '2.44' '2.49' '18.22' '2.49' '1' 'schwarz'
  304. DRAWLINE 1 '2.44' '9.13' '18.22' '9.13' '1' 'schwarz'
  305. DRAWLINE 1 '2.44' '15.00' '18.22' '15.00' '1' 'schwarz'
  306. DRAWLINE 1 '2.44' '27.00' '18.22' '27.00' '1' 'schwarz'
  307. DRAWLINE 1 '0' '15.00' '1' '15.00' '1' 'schwarz'
  308.  
  309. PrintOptions Background Copies 1
  310.  
  311. RequestResponse "Rechnung drucken?"
  312.     If (RC > 0) THEN DO
  313.         Close FORCE
  314.     Exit
  315. END
  316.  
  317. SAVEAS NAME 'Rechnungen:'RgNo
  318.  
  319. Print
  320.  
  321. CALL OPEN('RgNoWW','Rechnungen:RgNoWW','W')
  322. CALL WRITELN('RgNoWW',RgNo)
  323. CALL CLOSE('RgNoWW')
  324.  
  325. RequestResponse "Noch eine Rechnung schreiben?"
  326. If Result = 1 THEN
  327.     RgBeginn = 1
  328. END
  329.  
  330. EXIT
  331.  
  332. /*----------------------------*/
  333. /*----------------------------*/
  334.  
  335. NEUKUNDE:
  336.  
  337. WIZARDREQ TITLE 'Rechnungsanschrift' LABEL '' TEXTBOX 1 'Zustell_vermerk:' TEXTBOX 2 '_Empfänger:' TEXTBOX 3 '_Zusatz:' TEXTBOX 4 '_Straße:' TEXTBOX 5 'Post_fach:' TEXTBOX 6 '_PLZ:' TEXTBOX 7 'O_rt:' BUTTON 1 "_Ok" BUTTON "-1" "A_bbruch"
  338.  
  339. If Result = -1 THEN DO
  340.     Close FORCE
  341.     Exit
  342. END
  343.  
  344. Wizard_GetTextBox 1
  345. Letter = RESULT
  346. Text Letter
  347.  
  348. NewParagraph
  349.  
  350. Wizard_GetTextBox 2
  351. Owner = Result
  352. Text Owner
  353.  
  354. NewParagraph
  355.  
  356. Wizard_GetTextBox 3
  357. Plus = Result
  358. Text Plus
  359.  
  360. NewParagraph
  361.  
  362. Wizard_GetTextBox 4
  363. Road = Result
  364. Text Road
  365.  
  366. Wizard_GetTextBox 5
  367. Post = Result
  368. Text Post
  369.  
  370. NewParagraph
  371. NewParagraph
  372.  
  373.  
  374. Wizard_GetTextBox 6
  375. Number = Result
  376. Text Number
  377.  
  378. Text '  '
  379.  
  380. Bold
  381. SingleUnderLine
  382.  
  383. Wizard_GetTextBox 7
  384. Town = Result
  385. Text Town
  386.  
  387. RETURN
  388.  
  389. /*----------------------------*/
  390.  
  391. NEUPRODUKT:
  392.  
  393. Produkt = rtgetstring(,'Bitte Art der Leistung händisch eintragen!')
  394. Preis = rtgetstring(,'Bitte den Preis händisch eintragen!')
  395.  
  396. RETURN Produkt Preis
  397.  
  398. /*----------------------------*/
  399.